home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / BitplaneOverlayDemo.AMOS / BitplaneOverlayDemo.amosSourceCode
Encoding:
AMOS Source Code  |  1994-03-12  |  1.3 KB  |  51 lines
  1. ' *************************************  
  2. ' *                                   *  
  3. ' *     Bitplane Overlay Demo V1.0    *  
  4. ' *        Written by C. Hodges       *  
  5. ' *                                   *  
  6. ' *************************************  
  7. '
  8. Randomize Timer
  9. Hide 
  10. Screen Open 0,320,256,8,0
  11. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  12. Palette 0,$F00,$F0,$FF0,$F,$F0F,$FF,$FFF
  13. Ink 1 : Circle 31,31,31 : Paint 31,31,1
  14. Get Bob 1,0,0 To 64,64 : Hot Spot 1,31,31
  15. Ink 2 : Circle 31,31,31 : Paint 31,31,1
  16. Get Bob 2,0,0 To 64,64 : Hot Spot 2,31,31
  17. Ink 4 : Circle 31,31,31 : Paint 31,31,1
  18. Get Bob 3,0,0 To 64,64 : Hot Spot 3,31,31
  19. Set Bob 1,1,1,%11100010
  20. Set Bob 2,1,2,%11100010
  21. Set Bob 3,1,4,%11100010
  22. Cls 
  23. Double Buffer 
  24. Autoback 0
  25. Bob Update Off 
  26. Dim D(2,5)
  27. For A=0 To 2
  28.   D(A,0)=Rnd(288)+32
  29.   D(A,1)=Rnd(50)+32
  30.   D(A,4)=D(A,0) : D(A,5)=D(A,1)
  31.   Repeat 
  32.     D(A,2)=Rnd(10)-5
  33.   Until D(A,2)
  34.   D(A,3)=0
  35. Next 
  36. Do 
  37.   For A=0 To 2
  38.     Cls 0,D(A,4)-32,D(A,5)-32 To D(A,4)+32,D(A,5)+32
  39.     D(A,4)=D(A,0) : D(A,5)=D(A,1)
  40.     If D(A,0)+D(A,2)>288 Then D(A,2)=-Rnd(4)-1
  41.     If D(A,0)+D(A,2)<32 Then D(A,2)=Rnd(4)+1
  42.     If D(A,1)+D(A,3)>224 Then D(A,3)=-D(A,3)+1
  43.     Add D(A,0),D(A,2) : Add D(A,1),D(A,3) : Inc D(A,3)
  44.   Next 
  45.   For A=0 To 2
  46.     Bob A+1,D(A,0),D(A,1),A+1
  47.   Next 
  48.   Bob Draw 
  49.   Screen Swap 
  50.   Wait Vbl 
  51. Loop